10 REM Barranco
20 DIM x(16)
30 DIM y(16)
40 GO SUB 3000
50 GO SUB 2000
60 GO SUB 7500
70 GO SUB 6000
80 GO SUB 1500
90 IF men=0 THEN GO TO 9000
100 GO TO 80
1500 FOR t=1+r TO n-r
1510 PLOT 127,150
1520 DRAW x(t),y(t)
1525 LET s=1: GO SUB 4000
1530 PLOT 127,150
1540 DRAW OVER 1;x(t),y(t)
1550 IF j=1 THEN LET s=2: GO SUB 4000
1560 NEXT t
1570 IF c=1 THEN GO TO 1680
1600 FOR t=n-r TO 1+r STEP -1
1610 PLOT 127,150
1620 DRAW x(t),y(t)
1625 LET s=3: GO SUB 4000
1630 PLOT 127,150
1640 DRAW OVER 1;x(t),y(t)
1650 IF j=1 THEN LET s=4: GO SUB 4000
1660 NEXT t
1670 RETURN
1680 LET across=across+1
1690 LET dx=(across-1)*10+5
1700 LET dy=50
1710 GO SUB 4020
1720 LET c=0
1730 LET men=men-1
1735 IF men=0 THEN GO TO 6050
1740 GO SUB 6000
1750 RETURN
2000 LET n=0
2010 FOR t=-PI/6 TO PI/6 STEP .1
2020 LET n=n+1
2030 LET x(n)=-105*SIN t
2040 LET y(n)=-105*COS t
2050 NEXT t
2060 RETURN
3000 PAPER 7
3010 INK 0
3020 CLS
3040 FOR i=17 TO 21
3050 FOR j=0 TO 31
3060 IF j>10 AND j<20 THEN GO TO 3090
3070 PRINT AT i,j; INK 5;"{+8}"
3090 IF i<19 THEN GO TO 3110
3100 PRINT AT i,j; PAPER 1;" "
3110 NEXT j
3120 NEXT i
3130 LET c=0
3140 LET j=0
3150 RETURN
4000 IF c=0 THEN GO TO 5000
4010 LET dx=127+x(t): LET dy=150+y(t)-2
4020 PLOT OVER 1;dx,dy
4030 PLOT OVER 1;dx,dy-1
4040 PLOT OVER 1;dx-3,dy-2
4050 DRAW OVER 1;+6,0
4060 PLOT OVER 1;dx,dy-3
4070 DRAW OVER 1;+2,-4
4080 PLOT OVER 1;dx+1,dy-3
4090 DRAW OVER 1;-2,-4
4100 RETURN
5000 IF INKEY$="" AND j=0 THEN PAUSE 15: RETURN
5010 LET j=1
5020 LET dy=my
5030 LET dx=mx
5040 GO SUB 4020
5050 LET mx=mx-10
5060 LET dy=my
5070 LET dx=mx
5080 GO SUB 4020
5090 IF ABS (mx-127-x(t))<10 AND s=2 THEN LET c=1: GO TO 4020
5200 IF mx<160 THEN GO TO 7000
5210 RETURN
6000 LET my=50
6010 LET mx=240
6020 LET dy=my
6030 LET dx=mx
6040 LET j=0
6050 GO SUB 4020
6060 PRINT AT 0,1;"Quedan  Cruzaron  Perdidos"
6070 PRINT AT 1,4;men;TAB 12;across;TAB 22;lost
6080 RETURN
7000 GO SUB 4020
7010 LET my=my-2
7020 LET dy=my
7030 GO SUB 4020
7040 BEEP .01,my/2
7050 GO SUB 4020
7060 IF my>30 THEN GO TO 7010
7070 BEEP 1,-10
7080 LET lost=lost+1
7090 LET c=0
7100 LET j=0
7110 LET men=men-1
7120 IF men=0 THEN GO TO 6060
7130 GO SUB 6000
7140 RETURN
7500 LET men=5
7510 LET lost=0
7520 LET across=0
7530 LET j=0
7540 LET c=0
7550 LET r=INT (RND*4)
7560 PRINT AT 15,0;"          ": REM 10 espacios.
7570 PRINT AT 16,0;"          ": REM 10 espacios.
7580 RETURN
9000 INPUT "Perdio ";(lost);'"Otra vez ";a$
9010 IF a$="s" OR a$="S" THEN GO TO 60
9020 INK 0
9030 PAPER 7
9040 CLS